
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
'--- MAIN.VBS
'
'   Autor:              Sardi, Leandro
'   Proyecto:           Scheduler Example
'   Ultima Revision:    2006/03/04
'
'   Proyecto:           Example 1
'   Descripcion:        Proyecto de Ejemplo
'
'-------------------------------------------------------------------------------

option explicit


'-------------------------------------------------------------------------------
' APIs del sistema
'include_once Q_PATH & "\includes\qfc.vbs"
'include_once Q_PATH & "\includes\storage\storage.vbs"

'-------------------------------------------------------------------------------
' Implementacion

' para ProjectBox
dim oDialogManager
dim sFolderName
dim sProjectName
dim bOk
dim bCreate

' para NewProjectBox
dim oObjects
dim oObjectsSelected
dim oMethods
dim oMethodsSelected
dim oStorage
dim oViewClasses
dim oViewTransactions
dim oClass
dim oTransaction

' Instancio los objetos
set oDialogManager = createobject("wfm_utils.dialogs")

' Ejecuto el dialogo
dim res
res = oDialogManager.ProjectsBox(Q_PATH&"\projects",sProjectName,bOk,bCreate)

' Libero el recurso
set oDialogManager = nothing

' Ejecuto el resultado

if bCreate then
	msgbox "Create Project Wizard is coming soon."	
end if


if bOk then
	include Q_PATH&"\projects\"&sProjectName&"\vbs\main.vbs"
elseif bCreate then
'	set oStorage = Storage
'	oStorage.sConnectionStringDictionary = Q_DICTIONARY_CONNECTION_STRING
'	oStorage.sConnectionStringStore = Q_STORE_CONNECTION_STRING
	
'	set oViewClasses = oStorage.CreateView("qclass")
'	set oViewTransactions = oStorage.CreateView("qerp_wf_transaction")
	
	msgbox "Create Project Wizard is coming soon."	
end if


